library(tidyverse)

DATA <- tribble(
  ~IDEO         , ~RACE     , ~PE  , ~CILO, ~CIHI,
  "Liberal"     , "White"   , 19.33, 18.14, 20.51,
  "Liberal"     , "Black"   , 28.26, 23.94, 32.59,
  "Liberal"     , "Hispanic", 26.70, 22.15, 31.25,
  "Liberal"     , "Other"   , 22.51, 18.85, 26.17,
  "Moderate"    , "White"   , 48.36, 46.49, 50.23,
  "Moderate"    , "Black"   , 40.25, 35.30, 45.20,
  "Moderate"    , "Hispanic", 43.69, 39.00, 48.38,
  "Moderate"    , "Other"   , 47.59, 43.30, 51.89,
  "Conservative", "White"   , 73.43, 72.39, 74.47,
  "Conservative", "Black"   , 47.59, 39.98, 55.20,
  "Conservative", "Hispanic", 69.12, 64.73, 73.51,
  "Conservative", "Other"   , 64.76, 60.54, 68.98)
